program Project1; // Zadanie 3.3

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  x, y : Integer;

begin
  Writeln('Program oblicza wartosc funkcji y=3x dla x zmieniajacego sie od 0 do 10.');
  x:=0;

  while x <= 10 do
    begin
      y := 3*x;
      Writeln('x = ', x, #9, 'y = ', y);
      x := x+1;
    end;

  Readln; // czeka na nacisniecie klawisza Enter
end.
